﻿Imports System.Data
Imports System.Data.SqlClient
Public Class NguoiThueNha_BUS
    Public Shared Sub ThemDuLieuNguoiThue(ByVal Nguoithue As NguoiThueNha_DTO)
        Dim i As Boolean = NguoiThueNha_DAO.ChenDuLieuNguoiThue(Nguoithue)
        If (i = True) Then
            MessageBox.Show(" bạn đã thêm thành công!")
        Else
            MessageBox.Show(" đã có lỗi khi thêm dữ liệu", "thông báo", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If
    End Sub
    Public Shared Function ThemNguoithueTuExcel(ByVal Nguoithue As NguoiThueNha_DTO) As Boolean
        Dim i As Boolean = NguoiThueNha_DAO.ChenNguoiThueTuExcel(Nguoithue)
        If i = False Then
            MessageBox.Show(" đã có lỗi khi lưu dữ liệu , bạn hãy kiểm tra lại dữ liệu!", "thông báo", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Else
            Return i
        End If
    End Function
    Public Shared Function LoadNguoiThue() As DataTable
        Dim i As DataTable = NguoiThueNha_DAO.LoadNguoiThue()
        Return i

    End Function
    Public Shared Function LoadTenNguoiThue() As DataTable
        Dim i As DataTable = NguoiThueNha_DAO.LoadTenNguoiThue()
        Return i

    End Function
    Public Shared Function updateNguoiThue(ByVal nguoithue As NguoiThueNha_DTO) As Boolean
        Dim i As Boolean = NguoiThueNha_DAO.updateNguoiThue(nguoithue)

        If (i = True) Then
            MessageBox.Show(" bạn đã thêm thành công!")
        Else
            MessageBox.Show(" đã có lỗi khi thêm dữ liệu", "thông báo", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If
    End Function

    Public Shared Function XoaNguoiThue(ByVal nguoithhue As String) As Boolean
        Dim i As Boolean = NguoiThueNha_DAO.xoaNguoiThue(nguoithhue)
        If (i = True) Then
            MessageBox.Show(" bạn đã xóa thành công!")
        Else
            MessageBox.Show(" không xóa dữ liệu này.bạn hãy kiểm tra lại dữ liệu thay đổi!", "thông báo", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If
    End Function

End Class
